در کد زیر روالی را مشاهده می کنید که پرونده print.txt را باز کرده و اعداد 1 تا 6 را در آن پرونده می نویسید و سپس پرونده را می بندد.
1.یک دکمه ایجاد کنید به نام cmdfile و کد زیر را تایپ کنید
Privat sub cmdfile_click
Dim intctr as intiger 'loop counter
Dim intfnum as intiger 'file number
Infnum=freefile
Open"C:\print.txt" for output as # intfnum
Msgbox "file print.txt opened" for intctr = 1 to 6
Print # intfnum , inctr , write rhe loop counter
Msgbox swriting a "& cstr(intctr) & "to print.txt "
Next intctr
Close #intenum
Msgbox "file print.txt closed"
endsub
خبرنامه وب سایت:
آمار
وب سایت:
بازدید دیروز : 0
بازدید هفته : 96
بازدید ماه : 96
بازدید کل : 18575
تعداد مطالب : 29
تعداد نظرات : 4
تعداد آنلاین : 1
